home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / nt / emacssrc.zip / EMACSSRC.TAR / emacs-19.17 / lib-src / leditcfns.c < prev    next >
C/C++ Source or Header  |  1993-11-16  |  427b  |  19 lines
  1. #include <sgtty.h>
  2. #include <signal.h>
  3. #define STRLEN 100
  4. static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
  5.  
  6. switch_to_proc(){
  7.     char *ptr = str;
  8.     while (*ptr) ioctl(0, TIOCSTI, ptr++);
  9.     ioctl(0, TIOCSTI, "\n");
  10.     kill(getpid(), SIGTSTP);
  11.     }
  12.  
  13. set_proc_str(ptr) char *ptr; {
  14.     if (strlen(ptr) <= STRLEN)
  15.     strcpy(str, ptr);
  16.     else
  17.     printf("string too long for set-proc-str: %s\n", ptr);
  18.     }
  19.